home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 February
/
1986-02.d64
/
demo 2_vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
34 lines
99 ifa=0thena=1:load"vblinkobj",8,1
100 poke56,28:poke55,0:clr
110 nu=7
120 v1=1:v2=2:co=646:hi=28
140 pokev1,0:pokev2,hi
150 rem ** change these values to change the blink colors
160 dimct(nu)
170 fori=0tonu:ct(i)=nu-i:next
180 rem ** usr() is at $c000 for 64, $3c00 for +4/16, $1c00 for vic **
190 sd=16384: rem ** set delay flag
200 db=8192 : rem ** disable blink
210 eb=4096 : rem ** enable blink
220 sb=2048 : rem ** stop color from blinking
230 mb=1024 : rem ** make color start blinkg
240 vb=512 : rem ** return value of blinking color
250 rc=256 : rem ** reset all colors-nno blinking
260 rem *** now we demonstrate blink
270 x=usr(db): rem ** must disable blinkmode first
280 print"[147]"
290 poke53280,0:poke53281,0:rem make background black
300 rem for +4/16 - color 0,1,7:color 4,1,7 in line 290
310 rem for vic - poke36879,8 in line 290
320 for l=0 to nu: rem ** set all the colors
330 cl=ct(l)
340 x=usr(mb+(cl*16)+l): rem ** set the color to blink to
350 pokeco,l:rem ** change current color to x
360 print"blinking from"l"to"cl
370 next l
380 x=usr(sd+60): rem * set blink for 1 second
390 print:print"hit a key to start"
400 geta$:ifa$="" then400
410 x=usr(eb)
420 end